Apple Reference & Presen…rary 6 (Reseller Edition)/Apple Ref. & Pres. Lib.v6.0.toast/pc/3-Presentations/Apple Demos/Training/HyperCard 2.0 Training/•HC 2.0-2/card_26339.txt

Text File | 1990-08-07 | 8KB | 371 lines

-- card: 26339 from stack: in.0-2
-- bmap block id: 26759
-- flags: 0000
-- background id: 18737
-- name: customMenus
----- HyperTalk script -----
--• HPopupMenu:
--• ©1988-89 by Guy de Picciotto, its author
--• All rights reserved
--------------------------------------------------------------------

-- This handler stores the name of the last card.
on goBack
  go cd "Menus" of stack "Intro to HyperCard 2.0"
end goBack

on doAMenu str1, str2, str3, str4, str5
  set hilite of the target to true

  put str1 into item1
  put str2 into item2
  put str3 into item3
  put str4 into item4

  put item1 & return & item2 & return & item3 & return & item4 into menu

  put item 4 of the rect of the target into theV
  put ((item 1 of the rect of the target) + 1) into theH

  set cursor to arrow
  Get HPopupMenu(menu,0,theV,theH)

end doAMenu



-- part 1 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=195 top=204 right=222 bottom=222
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  set hilite of me to false
end mouseUp

on mouseDown
  doAMenu "This menu is", "the same", "for all", "applications."
end mouseDown


-- part 2 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=216 top=231 right=249 bottom=243
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  set hilite of me to false
end mouseUp

on mouseDown
  doAMenu "This menu is", "the same", "for all", "applications."
end mouseDown


-- part 3 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=237 top=258 right=276 bottom=264
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: 
----- HyperTalk script -----
on mouseUp
  set hilite of me to false
end mouseUp

on mouseDown
  doAMenu "This menu is", "the same", "for all", "applications."
end mouseDown


-- part 4 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=224 top=204 right=222 bottom=258
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Play
----- HyperTalk script -----
on mouseUp
  set hilite of me to false
end mouseUp

on mouseDown
  doAMenu "New Game", "Open Game...", "Save Game...", "Quit"
end mouseDown


-- part 5 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=262 top=204 right=222 bottom=306
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Level
----- HyperTalk script -----
on mouseUp
  set hilite of me to false
end mouseUp

on mouseDown
  doAMenu "Novice", "Intermediate", "Comfortable", "Expert"
end mouseDown


-- part 6 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=306 top=204 right=222 bottom=350
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Help
----- HyperTalk script -----
on mouseUp
  set hilite of me to false
end mouseUp

on mouseDown
  doAMenu "Hint 1", "Hint 2", "Go to Manual", "Replay"
end mouseDown


-- part 7 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=350 top=204 right=222 bottom=421
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Language
----- HyperTalk script -----
on mouseUp
  set hilite of me to false
end mouseUp

on mouseDown
  doAMenu "French", "Spanish", "German", "English"
end mouseDown


-- part 8 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=242 top=231 right=249 bottom=276
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: File
----- HyperTalk script -----
on mouseUp
  set hilite of me to false
end mouseUp

on mouseDown
  doAMenu "New Plan", "Open Plan...", "Save Plan...", "Quit"
end mouseDown


-- part 9 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=279 top=231 right=249 bottom=313
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Edit
----- HyperTalk script -----
on mouseUp
  set hilite of me to false
end mouseUp

on mouseDown
  doAMenu "Undo", "Cut", "Copy", "Paste"
end mouseDown


-- part 10 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=316 top=231 right=249 bottom=356
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Style
----- HyperTalk script -----
on mouseUp
  set hilite of me to false
end mouseUp

on mouseDown
  doAMenu "Gothic", "Victorian", "Ranch", "Post-Modern"
end mouseDown


-- part 11 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=361 top=231 right=249 bottom=401
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Roof
----- HyperTalk script -----
on mouseUp
  set hilite of me to false
end mouseUp

on mouseDown
  doAMenu "Mansard", "Gabled", "Shingled", "Tarred"
end mouseDown


-- part 12 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=263 top=258 right=276 bottom=297
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: File
----- HyperTalk script -----
on mouseUp
  set hilite of me to false
end mouseUp

on mouseDown
  doAMenu "New Listing", "Open Listing...", "Save Listing...", "Quit"
end mouseDown


-- part 13 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=300 top=258 right=276 bottom=334
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Edit
----- HyperTalk script -----
on mouseUp
  set hilite of me to false
end mouseUp

on mouseDown
  doAMenu "Undo", "Cut", "Copy", "Paste"
end mouseDown


-- part 14 (button)
-- low flags: 00
-- high flags: 8000
-- rect: left=339 top=258 right=276 bottom=373
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 1
-- font id: 0
-- text size: 12
-- style flags: 0
-- line height: 16
-- part name: Sort
----- HyperTalk script -----
on mouseUp
  set hilite of me to false
end mouseUp

on mouseDown
  doAMenu "By Age...", "By Income...", "By City...", "By Past Donations..."
end mouseDown


-- part 15 (field)
-- low flags: 01
-- high flags: 0000
-- rect: left=59 top=84 right=199 bottom=416
-- title width / last selected line: 0
-- icon id / first selected line: 0 / 0
-- text alignment: 0
-- font id: 174
-- text size: 14
-- style flags: 0
-- line height: 14
-- part name:
----- HyperTalk script -----
on mouseUp
  if 2 = 1 then
  end if
end mouseUp


-- part contents for card part 15
----- text -----
With HyperCard 2.0, stack developers can change the HyperCard menu bar to include any menus they want. The new menus can include any customized menu options.

Here are three samples. Click on the options to see what is available (the particular options do not work).